home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 109
- Top = 99
- Width = 644
- Height = 374
- Caption = 'TeeChart-Pro -- Improve printing proportionally'
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- PixelsPerInch = 96
- OnCreate = FormCreate
- TextHeight = 13
- object Label1: TLabel
- Left = 200
- Top = 272
- Width = 300
- Height = 16
- Caption = '<-- You will see the Legend text overlaps !!!'
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label2: TLabel
- Left = 200
- Top = 320
- Width = 244
- Height = 20
- Caption = '<- Here the Legend text is ok !'
- Font.Color = clBlack
- Font.Height = -16
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Button1: TButton
- Left = 8
- Top = 312
- Width = 185
- Height = 33
- Caption = '2) GOOD Printing Margins'
- TabOrder = 0
- OnClick = Button1Click
- end
- object Button2: TButton
- Left = 8
- Top = 264
- Width = 185
- Height = 41
- Caption = '1) BAD Printing'
- TabOrder = 1
- OnClick = Button2Click
- end
- object Button3: TButton
- Left = 536
- Top = 312
- Width = 89
- Height = 33
- Caption = '&Close'
- TabOrder = 2
- OnClick = Button3Click
- end
- object Chart1: TChart
- Left = 8
- Top = 8
- Width = 617
- Height = 250
- BackWall.Brush.Color = clWhite
- BackWall.Brush.Style = bsClear
- Title.Text.Strings = (
- 'TChart')
- BottomAxis.EndPosition = 100.000000000000000000
- LeftAxis.EndPosition = 100.000000000000000000
- Legend.Font.Color = clBlack
- Legend.Font.Height = -19
- Legend.Font.Name = 'Arial'
- Legend.Font.Style = []
- RightAxis.EndPosition = 100.000000000000000000
- TopAxis.EndPosition = 100.000000000000000000
- TabOrder = 3
- object Series1: TBarSeries
- Marks.ArrowLength = 20
- Marks.Visible = True
- SeriesColor = clRed
- XValues.DateTime = False
- XValues.Name = 'X'
- XValues.Multiplier = 1.000000000000000000
- XValues.Order = loAscending
- YValues.DateTime = False
- YValues.Name = 'Bar'
- YValues.Multiplier = 1.000000000000000000
- YValues.Order = loNone
- end
- end
- end
-